home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 045a / capstat2.zip / CAPS.BAS next >
BASIC Source File  |  1991-02-05  |  3KB  |  46 lines
  1.         ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  2.         ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  3.         ':::                                                                 :::
  4.         ':::                                                                 :::
  5.         ':::    PROGRAM:        CAPS.BAS                                     :::
  6.         ':::    AUTHOR:         Mike Shaffer                                 :::
  7.         ':::    DATE:           Feb 2, 1991                                  :::
  8.         ':::    VERSION:        2.0                                          :::
  9.         ':::    PURPOSE:        Tests the CAPSTAT.SUB subroutine             :::
  10.         ':::    REVISIONS:                                                   :::
  11.         ':::                                                                 :::
  12.         ':::                                                                 :::
  13.         ':::                                                                 :::
  14.         ':::    NOTES:          This program assumes you're using PDQ from   :::
  15.         ':::                    Crescent Software. If not (shame on you!)    :::
  16.         ':::                    than you can modify the interrupt call to    :::
  17.         ':::                    use INT86 as provided with QuickBASIC, and   :::
  18.         ':::                    take out the reference to PDQDECL.BAS        :::
  19.         ':::                                                                 :::
  20.         ':::                    Compile using:                               :::
  21.         ':::                                                                 :::
  22.         ':::                         BC caps/o/s;                            :::
  23.         ':::                         LINK /NOD/NOE caps,,,pdq[386].lib       :::
  24.         ':::                                                                 :::
  25.         ':::                    or similar...                                :::
  26.         ':::                                                                 :::
  27.         ':::                                                                 :::
  28.         ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  29.         ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  30.         '
  31.         '$include: 'pdqdecl.bas'
  32.         '
  33.         '
  34.         call    capstat(a%,b%)
  35.         if a% then
  36.            print "Capture is active to device ID "b%
  37.         else
  38.            print "Capture is currently inactive."
  39.         end if
  40.         '
  41.         end
  42.  
  43.  
  44.         '$include: 'capstat.sub'
  45.  
  46.